home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / data / nifhand / mail.aut < prev    next >
Text File  |  1991-10-18  |  4KB  |  218 lines
  1. ECHO "\rこれより電子メールの送信を行います"
  2. IF ($1000=="QUICK" || $1000=="quick") || ($1000=="Q" || $1000=="q")
  3.  $1="Q"
  4. ENDIF
  5. IF ($1=="QUICK" || $1=="quick") || ($1=="Q" || $1=="q")
  6.  IF $10=="" || $11==""
  7.   ECHO "\r^G"
  8.   ECHO "MAIL.AUT：フルオートモードでは全てを設定しておく必要があります\r"
  9.   GOTO E
  10.  ENDIF
  11.  IF $12=="" || ($12=="T" || $12=="t")
  12.   GOTO SM
  13.  ELSEIF $12=="B" || $12=="b"
  14.   GOTO SBM
  15.  ENDIF
  16. ENDIF
  17.  
  18. LABEL M1
  19. IF $12=="" || ($12=="T" || $12=="t")
  20.  $15="テキスト"
  21. ELSEIF $12=="B" || $12=="b"
  22.  $15="バイナリ"
  23. ENDIF
  24.  
  25. ECHO "\r\r設定は以下のようになっています\r"
  26. ECHO "\r 1 送信ファイル名：$10"
  27. ECHO "\r 2 題  名        ：$11"
  28. ECHO "\r 3 属  性        ：$15"
  29. ECHO "\r 4 送信相手ID    ：1:$2000,2:$2001,3:$2002,4:$2003,5:$2004"
  30. ECHO "\r                 ：6:$2005,7:$2006,8:$2007,9:$2008,0:$2009\r"
  31. ECHO "\r^G以上でよろしいですか？ (Y/N) (E:中止) (ﾘﾀｰﾝｷｰ不要)＞\r"
  32. LOOKKEY 60
  33.  CASE "Y"
  34.   GOTO M4
  35.  CASE "y"
  36.   GOTO M4
  37.  CASE "N"
  38.  CASE "n"
  39.  CASE "E"
  40.   GOTO E
  41.  CASE "e"
  42.   GOTO E
  43.  CASE/TIMEOUT
  44.   GOTO E
  45. FREE
  46.  
  47. ECHO "\r^G訂正したいものを番号で選んで下さい (1～3) (ﾘﾀｰﾝｷｰ不要)\r"
  48. LOOKKEY 60
  49.  CASE "1"
  50.   ECHO "\r正しい送信ファイル名を入力して下さい (+ﾘﾀｰﾝ)\r\r\r"
  51.   INPUT $10
  52.   GOTO M1
  53.  CASE "2"
  54.   ECHO "\r正しい題名を入力して下さい (+ﾘﾀｰﾝ)\r\r\r"
  55.   INPUT $11
  56.   GOTO M1
  57.  CASE "3"
  58.   ECHO "\r正しい属性(T:ﾃｷｽﾄ  B:ﾊﾞｲﾅﾘ)を入力して下さい (+ﾘﾀｰﾝ)\r\r\r"
  59.   INPUT $12
  60.   GOTO M1
  61.  CASE "4"
  62.  CASE/TIMEOUT
  63.   GOTO E
  64. FREE
  65.  
  66. ECHO "\r訂正したいＩＤを番号で選んで下さい (1～0) (ﾘﾀｰﾝｷｰ不要)\r\r\r"
  67. LOOKKEY 60
  68.  CASE "1"
  69.   INPUT $2000
  70.  CASE "2"
  71.   INPUT $2001
  72.  CASE "3"
  73.   INPUT $2002
  74.  CASE "4"
  75.   INPUT $2003
  76.  CASE "5"
  77.   INPUT $2004
  78.  CASE "6"
  79.   INPUT $2005
  80.  CASE "7"
  81.   INPUT $2006
  82.  CASE "8"
  83.   INPUT $2007
  84.  CASE "9"
  85.   INPUT $2008
  86.  CASE "0"
  87.   INPUT $2009
  88.  CASE/TIMEOUT
  89.   GOTO E
  90. FREE
  91. GOTO M1
  92.  
  93. LABEL M4
  94. IF $15=="バイナリ"
  95.  GOTO SBM
  96. ENDIF
  97.  
  98. LABEL SM
  99. CALL MAIL1
  100.  
  101. LABEL SM1
  102. SEND "COM\r",1
  103. WAIT "^J本文（300"
  104. WAIT "\r"
  105. CMD U "$10"
  106. WAIT "^J修正 (1:修正"
  107. WAIT "^J："
  108. SEND "2\r",1
  109.  
  110. CALL MAIL2
  111. CALL MAIL3
  112.  
  113. %3=%3+1
  114. %4=%1
  115. WHILE %4 < %1+100
  116.  %4=%4+1
  117.  IF $[%4] != ""
  118.   %1=%4-1
  119.   ECHO "^Gこれより %3 巡目の送信です ＞"
  120.   GOTO SM1
  121.  ENDIF
  122. ENDWHILE
  123. GOTO E
  124.  
  125.  
  126. LABEL SBM
  127. CALL MAIL1
  128.  
  129. LABEL SBM1
  130. SEND "UPL TYPE:BIN PROT:BPL\r",1
  131. WAIT "^Jファイル名 (改行"
  132. WAIT "^J："
  133. SEND "$10\r",1
  134. WAIT "－アップロード開始－"
  135. WAIT ""
  136. CMD ! "B.BAT"
  137.  
  138. CALL MAIL2
  139. CALL MAIL3
  140.  
  141. %3=%3+1
  142. %4=%1
  143. WHILE %4 < %1+100
  144.  %4=%4+1
  145.  IF $[%4] != ""
  146.   %1=%4-1
  147.   ECHO "^Gこれより %3 巡目の送信です ＞"
  148.   GOTO SBM1
  149.  ENDIF
  150. ENDWHILE
  151.  
  152. LABEL E
  153. $1=$10=$11=$12=""
  154. END
  155.  
  156. PROC MAIL1
  157. %1=1999
  158. %2=2000
  159. %3=1
  160. SEND "MAIL\r",1
  161. LOOK
  162.  CASE "^J＞"
  163.   SEND "SET MENU OFF\r",1
  164.   WAIT "^JMAIL>"
  165.   SEND "SET PAGE OFF\r",1
  166.   WAIT "^JMAIL>"
  167.  CASE "^JMAIL>"
  168. FREE
  169. ENDPROC
  170.  
  171. PROC MAIL2
  172. WAIT "^J題名"
  173. WAIT "^J："
  174. SEND "$11\r",1
  175. LABEL SM2
  176. LOOK
  177. CASE "◆題名を入力して"
  178.  WAIT "^J："
  179.  SEND "題名を付け忘れました m(･_･)m ﾍﾟｺﾘ\r",1
  180.  GOTO SM2
  181. CASE "^J確認"
  182.  WAIT "^J："
  183.  SEND "1\r",1
  184. FREE
  185. ENDPROC
  186.  
  187. PROC MAIL3
  188. LABEL SM3
  189. LOOK
  190. CASE "◆登録されて"
  191.  WAIT "^J："
  192.  ECHO "正しいＩＤを入れれば立ち直ります："
  193. CASE "◆入力データ"
  194.  WAIT "^J："
  195.  ECHO "正しいＩＤを入れれば立ち直ります："
  196. CASE "◆宛先を指定して"
  197.  WAIT "^J："
  198.  ECHO "エラー発生 自分にメールを送ってひとまず回避します："
  199.  SEND "$5\r",1
  200. CASE "^J宛先"
  201.  WAIT "^J："
  202.  %1=%1+1
  203.  $1=$[%1]
  204.  $[%1]=""
  205.  SEND "$1\r",1
  206. CASE "^J確認"
  207.  WAIT "^J："
  208.  SEND "1\r",1
  209. CASE "^J送信"
  210.  WAIT "^J："
  211.  SEND "1\r",1
  212. CASE "^JMAIL>"
  213.  RETURN
  214. FREE
  215. GOTO SM3
  216. ENDPROC
  217.  
  218.